COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE	RANDOM
C00005 ENDMK
C⊗;
	TITLE	RANDOM
	X=1
	Y=2
	XCNT=3
	YCNT=4
	DPYCNT=5
	MASK=6
	N=7
	S=10
	RAN=11
	RAN2=12
	RAN3=13
	CONS=25
	OPDEF	PGIOT[715000,,0]
	OPDEF	PGSEL[PGIOT 0,]
	OPDEF	PGACT[PGIOT 1,]
	OPDEF	DPYOUT[703000,,0]
	OPDEF	PPIOT[702000,,0]
	OPDEF	DPYPOS[PPIOT 2,]
	OPDEF	PPACT[PPIOT 1,]
START:	RESET
	MOVEI	RAN,1000
	PGSEL	1
	PGACT	1B19
	PPACT
	DPYPOS	↑D1000
	MSTIME	RAN,
	MOVEI	MASK,37506
LOOP:	JSP	N,RANIT
	JSP	N,BYTE1
	JSP	N,RANIT
	JSP	N,BYTE2
	DPYOUT	1,DISOUT
;	MOVEI	S,1
;	SLEEP	S,
	JRST	LOOP
RANIT:	ADDI	RAN,1
	MUL	RAN,[40040005]
	MOVE	RAN,RAN2
	JRST	(N)
BYTE1:	DPB	RAN,[POINT 11,DISPLY+2,10]
	IORM	MASK,DISPLY+2
	JRST	(N)
BYTE2:	DPB	RAN,[POINT 11,DISPLY+2,21]
	JRST	(N)
DISOUT:	XWD	0,DISPLY
	3
	Z
	Z
DISPLY:	Z
	BYTE	(22)0(3)7(3)0(2)1(2)2(4)6
	Z
	END	START